home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / space / educatio / mac / rfrncstc.hqx / REFERENCE STACK / card_3797.txt < prev    next >
Text File  |  1993-02-04  |  3KB  |  119 lines
  1. -- card: 3797 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2761
  5. -- name: 
  6.  
  7.  
  8. -- part 8 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=152 top=6 right=18 bottom=174
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: globalfind
  20. ----- HyperTalk script -----
  21. on mouseup
  22.   repeat with y = 1 to 100
  23.     set cursor to busy
  24.     global t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15, t16,t17,t18,t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30, t31,t32,t33,t34,t35,t36,t37,t38,t39,t40,t41,t42,t43,t44
  25.     global t0, x, r,hat,straw,buff1,buff2,count1,count2, t45,t46,t47,t48,t49,t50,t51,t52,t53,t54,t55,t56,t57,t58,t59,t60
  26.     find whole t0
  27.     get the result
  28.     if count1>=3 and it is not empty then
  29.       put the number of this card into hat
  30.       put the foundchunk into buff1
  31.       show message box
  32.       flash 2
  33.       exit mouseup
  34.     else
  35.       if it is not empty then
  36.         add 1 to count1
  37.         add 1 to x
  38.         put "t"&x into r
  39.         set lockscreen to true
  40.         go to "Skylab Mission Stack"
  41.         send "mouseup" to button "GlobalFind"
  42.       else
  43.         put the number of this card into hat
  44.         put the foundchunk into buff1
  45.         exit mouseup
  46.       end if
  47.     end if
  48.   end repeat
  49. end mouseup
  50. on enterkey
  51.   global t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15, t16,t17,t18,t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30, t31,t32,t33,t34,t35,t36,t37,t38,t39,t40,t41,t42,t43,t44
  52.   global t0,x,r,hat,straw,buff1,buff2,count1,count2,t45,t46,t47, t48,t49,t50,t51,t52,t53,t54,t55,t56,t57,t58,t59,t60
  53.   hide message box
  54.   find whole t0
  55.   put 0 into count1
  56.   put the number of this card into straw
  57.   put the foundchunk into buff2
  58.   if straw = hat and buff1 = buff2 then
  59.     add 1 to x
  60.     put "t"&x into r
  61.     set lockscreen to true
  62.     go to "Skylab Mission Stack"
  63.     send "mouseup" to button "GlobalFind"
  64.   end if
  65. end enterkey
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101. -- part contents for background part 17
  102. ----- text -----
  103.                                             GENERAL SUBJECTS
  104.  
  105. 1.  Frank Miles and Nicholas Booth, eds.  RACE TO MARS.  New York: 
  106.        Harper and Row, 1988.
  107. 2.  Gregory B. Richards.  SCIENCE FICTION MOVIES.  New York: Bison Books 
  108.        Corp, 1984.
  109. 3.  Harry Harrison and Malcolm Edwards.  SPACECRAFT IN FACT AND 
  110.        FICTION.  New York: Exeter Books, 1979.
  111. 4.  Peter Nicholls, ed.  THE SCIENCE IN SCIENCE FICTION.  New York: 
  112.        Crescent Book, 1987.
  113. 5.  Nigel Macknight.  SHUTTLE 2.  Osceola: Motorbooks Int., 1986.
  114.  
  115. 6.  Kerry Mark Joels.  THE MARS ONE CREW MANUAL.  New York:
  116.        Ballantine Books, 1985.
  117.  
  118.  
  119.